home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga CD-ROM Collection
/
Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso
/
cactus
/
01
/
basicprg's
/
kassettendruck
< prev
next >
Wrap
Text File
|
1988-04-30
|
5KB
|
248 lines
REM ***********************************
REM * Ein PD-Programm von F. Weichert *
REM ***********************************
REM
REM Falls Dir das Prg. gefaellt, dann sende doch 5,-DM an
REM Friedhelm Weichert
REM Kontonummer: 482125 Bankleitzahl: 31251350
REM Kreissparkasse Grevenbroich
CLEAR
DIM titela$(16),intera$(16),titelb$(16),interb$(16)
Anfang:
CLS
PRINT "Kassettenhuellenbedrucker von Friedhelm Weichert"
PRINT "------------------------------------------------"
PRINT
PRINT
PRINT " 1 = Laden einer fertigen Kassettenhuelle"
PRINT " 2 = Speichern der bearbeiteten Kassettenhuelle"
PRINT " 3 = Bearbeiten einer neuen Kassettenhuelle"
PRINT " 4 = Drucken der Kassettenhuelle"
PRINT " 5 = Ausgabe des Formats auf dem Bildschirm"
PRINT
INPUT "Eingabe :",e
ON e GOTO Laden,Speichern,Neubearbeiten,Drucken,Bildschirm
Neubearbeiten:
CLEAR
DIM titela$(16),intera$(16),titelb$(16),interb$(16)
INPUT "Name der Seite A";KassettennameA$
IF LEN(KassettennameA$) > 30 THEN KassettennameA$=LEFT$(KassettennameA$,30)
INPUT "Name der Seite B";KassettennameB$
IF LEN(KassettennameB$) > 30 THEN KassettennameB$=LEFT$(KassettennameB$,30)
PRINT
PRINT
PRINT "Eingabe der Titel von Seite A "
PRINT
INPUT "Wieviele Titel befinden sich auf Seite A (max.16)?",menge1
PRINT
menge = menge1
FOR i = 1 TO menge
PRINT i;". Titel =";
INPUT titela$(i)
IF LEN(titela$(i)) > 20 THEN titela$(i)=LEFT$(titela$(i),20)
PRINT "dazugehoeriger Interpret =";
INPUT intera$(i)
IF LEN(intera$(i)) > 11 THEN intera$(i)=LEFT$(intera$(i),11)
NEXT i
PRINT
PRINT
PRINT
PRINT "Nun Eingabe der Titel und Gruppen von Seite B"
PRINT
INPUT "Anzahl der Titel auf Seite B (max.16) ";menge2
PRINT
menge = menge2
FOR i=1 TO menge
PRINT i;". Titel =";
INPUT titelb$(i)
IF LEN(titelb$(i)) > 20 THEN titelb$(i)=LEFT$(titelb$(i),20)
PRINT "dazugehoeriger Interpret =";
INPUT interb$(i)
IF LEN(interb$(i)) > 11 THEN interb$(i)=LEFT$(interb$(i),11)
NEXT i
GOTO Anfang
Drucken:
PRINT
PRINT
PRINT "Drucker einschalten, Return Taste betaetigen!"
tastendruck:
w$=INKEY$
IF w$="" THEN tastendruck
IF w$ <> CHR$(13) THEN tastendruck
OPEN "par:" FOR OUTPUT AS #1
GOTO Beginnausgabe
Bildschirm:
CLS
PRINT " A";TAB(36);"|";TAB(70);"B"
FOR i = 1 TO 16
IF LEN(titela$(i))=0 THEN titela$(i)="."
PRINT USING "##";i;
PRINT " ";titela$(i);
PRINT TAB(24);"|";intera$(i);TAB(36);"| ";titelb$(i);TAB(58);"|";interb$(i);TAB(70);"."
NEXT i
PRINT
PRINT "Seite A: ";KassettennameA$
PRINT "Seite B: ";KassettennameB$
PRINT TAB(30);"W=Weiter A=Aendern"
Taste5:
w$=INKEY$
IF w$="" THEN Taste5
IF w$="A" OR w$="a" THEN
INPUT "Auf welcher Seite soll geaendert werden";seite$
INPUT "Welcher Titel bzw. Interpret soll geaendert werden";eingabe
IF seite$="A" OR seite$="a" THEN
PRINT intera$(eingabe);" ";titela$(eingabe)
INPUT "Interpret = ";intera$(eingabe)
IF LEN(intera$(eingabe)) > 11 THEN intera$(eingabe)=LEFT$(intera$(eingabe),11)
INPUT "Titel = ";titela$(eingabe)
IF LEN(titela$(eingabe)) > 20 THEN titela$(eingabe)=LEFT$(titela$(eingabe),20)
END IF
IF seite$="B" OR seite$="b" THEN
PRINT interb$(eingabe);" ";titelb$(eingabe)
INPUT "Interpret = ";interb$(eingabe)
IF LEN(interb$(eingabe)) > 11 THEN interb$(eingabe)=LEFT$(interb$(eingabe),11)
INPUT "Titel = ";titelb$(eingabe)
IF LEN(titelb$(eingabe)) > 20 THEN titelb$(eingabe)=LEFT$(titelb$(eingabe),20)
END IF
END IF
GOTO Anfang
REM ***************** Drucken **********************
REM *********** Voreinstellungen des Duckers auf Schmalschrift und Zeilen-
REM *********** vorschub
Beginnausgabe:
PRINT #1,CHR$(27);"3";CHR$(30);
PRINT #1,CHR$(27);"-";CHR$(1);
PRINT #1,CHR$(27);"G";
PRINT #1,CHR$(27);CHR$(15);
PRINT #1,"A";TAB(36);"|";TAB(70);"B"
FOR i = 1 TO 16
IF LEN(titela$(i))=0 THEN titela$(i)="."
PRINT #1,titela$(i);
PRINT #1,TAB(21);"|";intera$(i);TAB(33);"| ";titelb$(i);TAB(55);"|";interb$(i);TAB(67);"."
NEXT i
PRINT #1," "
PRINT #1," "
PRINT #1,CHR$(27);"B";
PRINT #1,CHR$(27);"W";CHR$(1);
PRINT #1,"A: ";KassettennameA$
PRINT #1,"B: ";KassettennameB$
PRINT #1," "
PRINT #1," "
PRINT #1," "
PRINT #1," "
PRINT #1,".................................."
CLOSE 1
PRINT "Ausgabe beendet !!! Zurueck zum Anfang mit Tastendruck."
Taste3:
w$=INKEY$
IF w$="" THEN Taste3
GOTO Anfang
Speichern:
CLS
IF menge1 > menge2 THEN menge=menge1
IF menge2 > menge1 THEN menge=menge2
PRINT
PRINT
PRINT "Speichern der Kassettenhuelle"
PRINT "-----------------------------"
PRINT
INPUT "Name der Huelle"; Kassettenname$
PRINT
PRINT "Zum Speichern Taste druecken!"
Taste1:
w$=INKEY$
IF w$="" THEN Taste1
OPEN Kassettenname$ FOR OUTPUT AS 2
PRINT #2,KassettennameA$
PRINT #2,KassettennameB$
FOR i = 1 TO 16
PRINT #2,titela$(i)
PRINT #2,titelb$(i)
PRINT #2,intera$(i)
PRINT #2,interb$(i)
NEXT i
CLOSE 2
GOTO Anfang
Laden:
CLS
CLEAR
DIM titela$(16),intera$(16),titelb$(16),interb$(16)
PRINT
PRINT
PRINT "Laden einer Kassettenhuelle"
PRINT "---------------------------"
PRINT
INPUT "Name der Kassettenhuelle";Kassettenname$
PRINT
PRINT "Zum Laden Taste druecken!"
taste2:
w$=INKEY$
IF w$="" THEN taste2
OPEN Kassettenname$ FOR INPUT AS 2
INPUT #2,KassettennameA$
INPUT #2,KassettennameB$
FOR i= 1 TO 16
wert=EOF(2)
IF wert = -1 THEN Anfang
INPUT #2,titela$(i)
INPUT #2,titelb$(i)
INPUT #2,intera$(i)
INPUT #2,interb$(i)
NEXT i
CLOSE 2
GOTO Anfang
END